From 5eec7e4d5ff8f39e8bacf0acfb3ee20a87c1733d Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 27 Nov 2000 13:35:11 +0000 Subject: [PATCH] Update from author. --- lisp/play/5x5.el | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el index 7fb1ff1b346..490beff86cc 100644 --- a/lisp/play/5x5.el +++ b/lisp/play/5x5.el @@ -1,11 +1,11 @@ ;;; 5x5.el -- Simple little puzzle game. -;; Copyright (C) 1999 Free Software Foundation, Inc. +;; Copyright (C) 1999,2000 Free Software Foundation, Inc. -;; Author: Dave Pearson -;; Maintainer: Dave Pearson +;; Author: Dave Pearson +;; Maintainer: Dave Pearson ;; Created: 1998-10-03 -;; Version: $Revision: 1.2 $ +;; Version: $Revision: 1.20 $ ;; Keywords: games puzzles ;; This file is part of GNU Emacs. @@ -414,15 +414,16 @@ should return a grid vector array that is the new solution." "Play a solution on an empty grid. This destroys the current game in progress because it is an animated attempt." (5x5-new-game) - (loop for y from 0 to (1- 5x5-grid-size) do - (loop for x from 0 to (1- 5x5-grid-size) do - (setq 5x5-y-pos y - 5x5-x-pos x) - (if (5x5-cell solution y x) - (5x5-flip-current)) - (5x5-draw-grid (list 5x5-grid solution best)) - (5x5-position-cursor) - (sit-for 5x5-animate-delay))) + (let ((inhibit-quit t)) + (loop for y from 0 to (1- 5x5-grid-size) do + (loop for x from 0 to (1- 5x5-grid-size) do + (setq 5x5-y-pos y + 5x5-x-pos x) + (if (5x5-cell solution y x) + (5x5-flip-current)) + (5x5-draw-grid (list 5x5-grid solution best)) + (5x5-position-cursor) + (sit-for 5x5-animate-delay)))) 5x5-grid) ;; Keyboard response functions. -- 2.30.2